home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / ai_drog1.scp < prev    next >
Text File  |  1994-12-07  |  10KB  |  564 lines
  1. { CONLOC6
  2.     ^ï╝         = 6
  3.     I ( ^îÉ              ) THEN
  4.         é     
  5.  
  6.     ^îÅ           = $Ç╗   
  7.     // START THE COUNT-DOWN
  8.     I  ( (^笠       = 0) AND (^磠          = 0) ) THEN
  9.         @Çì      WAIT4TIMER
  10. }
  11.  
  12. { WAIT4TIMER
  13.     W    40 SECONDS
  14.     I  ( (^笠       = 0) AND (^磠          = 0) ) THEN
  15.         ^笠       = @Çì      REACTORDETONATIONTIMER
  16. }
  17.  
  18. { CONLOC7
  19.     ^ï╝        = 7
  20.     I ( ^îÉ              ) THEN
  21.         é     
  22.     @Ç¥   ACTIVATE_DROGG1
  23. }
  24.  
  25. { CONLOC8
  26.     ^ï╝        = 8
  27. }
  28.  
  29. { CONLOC9
  30.   ^ï╝        = 9
  31. }
  32.  
  33. { CONLOC10
  34.   ^ï╝        = 10
  35.  
  36.     // SPEED-UP TIMER SINCE YOUR RETREATING OR NEAR THE END
  37.     I ( ^笠        ) THEN
  38.         {
  39.         I ( ^窠       > 5 ) THEN
  40.             ^窠       = 5
  41.         }
  42.     E   
  43.         {
  44.         ^笠       = @Çì      REACTORDETONATIONTIMER
  45.         }
  46. }
  47.  
  48. { CONLOC6_DROGG1
  49.     ^îÄ         = 6
  50. }
  51.  
  52. { CONLOC7_DROGG1
  53.     ^îÄ         = 7
  54. }
  55.  
  56. { CONLOC8_DROGG1
  57.     ^îÄ         = 8
  58.  
  59.     // RESET IF ACTIVE BUT NOT IN PURSUIT
  60.  
  61.     I ( ^îÉ              ) THEN
  62.         é     
  63.  
  64.     I (^îÅ           = $Ç╗   ) AND (^îì             < ^îæ           ) THEN
  65.         I  @Ç¢              ( DROGG1 ) THEN
  66.             {
  67.             ^îÅ           = $Ç╝  
  68.             A  OFF
  69.             ║            ON
  70.             G  DCENTER 20 RUN
  71.             G  PDROGG1 20 RUN
  72.             ┴            
  73.             ║            OFF
  74.             A  ON
  75.             }
  76. }
  77.  
  78. { CONLOC9_DROGG1
  79.     ^îÄ         = 9
  80. }
  81.  
  82. { CONLOC10_DROGG1
  83.     ^îÄ         = 10
  84. }
  85.  
  86. { RFALLEN
  87.  
  88.     C      RTR2
  89.     A  OFF
  90.     // @@@ 
  91.     @Ç║       `ëá           $üé     "Nooo...!"
  92.     W    2 SECONDS
  93.     @Ç¥   DAMAGE_LEX_IMPACT 1000
  94. }
  95.  
  96. { RFALLEN_DROGG1
  97.  
  98.     C      RTR2
  99.     A  OFF
  100.     //@@@
  101.     @Ç║       `äò              $üâ       "The alien screams as he falls..."
  102.     ^îï           = $Ç╗   
  103.     W    2 SECONDS
  104.     K   
  105.     C      UNLOCK
  106. }
  107.  
  108. { READY_DROGG1
  109.  
  110.     // DON'T READY UNTIL REACTBOT IS DEAD
  111.     I ( ^îÇ             ) THEN
  112.         é     
  113.  
  114.     I ( ^îï           = $Ç╗    ) THEN
  115.         é     
  116.  
  117.     I  @Ç¢              ( DROGG1 ) = $Ç╗    THEN
  118.         {
  119.         Q      ("&&& CAN'T FIND Drogg1 &&&");
  120.         é     
  121.         }
  122.  
  123.     ^îÄ            = 6
  124.     ^îô            = 0
  125.     ^îÅ           = $Ç╝  
  126.  
  127.     è          ON
  128.     ï           PLAYER
  129.  
  130.     Y                 RTR1 RTR2 RTR3 RTR4 RTR5 RTR6
  131.  
  132.     ö     DROGG1
  133.     G     PDROGG1
  134.     £     POSRBOT
  135.  
  136.     ^îì             = 0
  137.  
  138.     Z       CURFIG ON
  139.  
  140.     M      STAND CONTINUE
  141.  
  142. }
  143.  
  144. { ACTIVATE_DROGG1
  145.  
  146.     // DON'T READY UNTIL REACTBOT IS DEAD
  147.     I ( ^îÇ             = $Ç╗    ) THEN
  148.         é     
  149.  
  150.     I ( ^îï           = $Ç╗    ) THEN
  151.         é     
  152.  
  153.     I ( ^îî            ) THEN
  154.         é     
  155.  
  156.     I  @Ç¢              ( DROGG1 ) = $Ç╗    THEN
  157.         {
  158.         Q      ("&&& CAN'T FIND Drogg1 &&&");
  159.         é     
  160.         }
  161.  
  162.     ┬             
  163.     ┴            
  164.  
  165.     M      STAND CONTINUE
  166.     ^îî            = $Ç╝  
  167. }
  168.  
  169. { DROGG1_AI
  170.  
  171.     P        ~ÇÇ  
  172.  
  173.     ^       = 0;         // SET SUPER-RECOIL COUNTERS TO ZERO
  174.  
  175.     :TOP
  176.  
  177.     â      
  178.  
  179.     I ( ^îÅ           ) THEN
  180.         {
  181.         ┴            
  182.         J    #ÇÉ
  183.         }
  184.  
  185.     I ( ^ï╝        > 6 ) THEN
  186.         {
  187.         I ( ^îì             < ^îæ            ) THEN
  188.             {
  189.             ┴            
  190.             J    #ÇÉ
  191.             }
  192.         E   
  193.             {
  194. //                              IF( _DROGG1_LOC > 6 ) THEN
  195. //                                      IF
  196. //
  197. //                              CAPTION "CHASE!!!!"
  198. //
  199. //                              IF( _LEXCONLOC > 8 OR _LEXCONLOC = 2) THEN
  200. //                                      {
  201. //                                      IF( DROGG
  202. //
  203. //                                      @CALL DROGG1_RUNFORIT
  204. //                                      }
  205.             }
  206.         }
  207.  
  208.     //:LOOP
  209.  
  210.     // IF THE DROGG ALREADY RAN BACK ACROSS THE BRIDGE, STAY THERE -BES
  211.     I ( ^îÉ              = $Ç╝   ) THEN
  212.         {
  213.         // THIS CODE DOES NOTHING ACCORDING TO LRG
  214.         //IF( _LEXCONLOC != 2 ) THEN
  215.         //    @PROCESS PREPARE_FOR_GRUFF
  216.         J    #ÇÉ
  217.         }
  218.  
  219.     // MAKE SURE IT'S OK TO MOVE AROUND AND ATTACK
  220.  
  221.     I ( .ÇéÇâ               != $üì            ) THEN
  222.         J    #ÇÉ
  223.  
  224.     ~ÇÇ   = @Ç¥   MONSTER_MOVE 10
  225.  
  226.     I  ( ~ÇÇ   > 0 ) THEN
  227.         {
  228.         N     ( ~ÇÇ   )
  229.             {
  230.             U    2
  231.             I  @Çô        ("atk_m2") != $Ç╝   THEN
  232.                 M      ATK_M2 CONTINUE
  233.                 X ÇÇ 
  234.  
  235.             U    1
  236.             U    3
  237.             U    4
  238.             U    6
  239.             U    7
  240.             U    9
  241.                 ┴            
  242.                 X ÇÇ 
  243.  
  244.             U    8
  245.             I  @Çô        ("atk_m8") != $Ç╝   THEN
  246.                 M      ATK_M8 CONTINUE
  247.                 X ÇÇ 
  248.  
  249.             U    10
  250.                 // IF LEX IS NOT ON THE MIDDLE PLATFORM, THEN RUN TO THE
  251.                 //   MOUTH OF THE LIGHT BRIDGE BEFORE PURSUING. -BES
  252.                 I  ^ï╝        > 6 AND @Çé    (CURFIG) < -541 THEN
  253.                     {
  254.                     ║            ON
  255.                     G  DCENTER   RUN
  256.                     G  DCENTER2  RUN
  257.                     ║            OFF
  258.                     }
  259.  
  260.                 I  @Çô        ("atk_m10") != $Ç╝   THEN
  261.                     M      "atk_m10" CONTINUE
  262. //                              IF( _DROGG1_COUNTER > 5 ) THEN
  263. //                                      {
  264. //                                      IF @ISMYMOTION("atk_m10") != _TRUE THEN
  265. //                                              MOTION "atk_m10" CONTINUE
  266. //                                      }
  267. //                              ELSE
  268. //                                      {
  269. //                                      IF @ISMYMOTION("run") != _TRUE THEN
  270. //                                              MOTION "run" CONTINUE
  271. //                                      }
  272.  
  273.                 X ÇÇ 
  274.             }
  275.         }
  276.     E   
  277.         {
  278.         I  ^îÆ            = $Ç╝   THEN
  279.             {
  280.             M      SPEC_ATK1
  281.             }
  282.         E   
  283.             {
  284.             N      (@Çà    ( 0, 5 ))
  285.                 {
  286.                 U    0
  287.                     M      ATK_H7
  288.                     X Çü 
  289.                 U    1
  290.                     M      ATK_H8
  291.                     X Çü 
  292.                     U    2
  293.                     M      ATK_H9
  294.                     X Çü 
  295.                 U    3
  296.                     M      SPEC_ATK1
  297.                     X Çü 
  298.                 U    4
  299.                     M      SPEC_ATK2
  300.                     X Çü 
  301.                 U    5
  302.                     M      SPEC_ATK3
  303.                     X Çü 
  304.                 }
  305.             }
  306.         }
  307.  
  308.     J    #ÇÉ
  309. }
  310.  
  311. { DROGG1_STIMULUS( _DAMAGE )
  312.  
  313. P        ~Çü   
  314.  
  315. :GOT_HIT
  316.  
  317.     I ( @Çó            ( ^ïÜ            ) == $Ç╝   ) THEN
  318.                 ( ^ïÖ           )
  319.     é     
  320.  
  321. :HIT_PLAYER
  322.  
  323.     I ( ^îÆ            ) THEN
  324.         @Ç¥   ABORTPULL
  325.     é     
  326.  
  327. :SUPER_RECOIL
  328.     ^îì             ++
  329.     // SHOW SOME DAMAGE TO DROGG
  330.     I ( ^îì                 = ^îæ            ) THEN
  331.         D      IMPACT 250
  332.  
  333.     ^       ++
  334.     @Ç¢              ( PLAYER )
  335.     I (^       = 1) THEN
  336.         {
  337.         //@@@
  338.         ^怒          = @Ç║       `ç⌐                $üé     "What foul manner of creature are you!?"
  339.         ^ï₧           = @Çÿ            ( `ç⌐                )
  340.         }
  341.     I (^       = 3) THEN
  342.         {
  343.         //@@@
  344.         ^怒          = @Ç║       `笠               $üé     "Are you what Mastaba thought to make of me?"
  345.         ^ï₧          = @Çÿ            ( `笠               )
  346.         }
  347.     I (^       = 5) THEN
  348.         {
  349.         //@@@
  350.         ^怒          = @Ç║       `ç¼                $üé     "When will you die, damn you!?"
  351.         ^ï₧          = @Çÿ            ( `ç¼                )
  352.         }
  353.     I (^       = 7) THEN
  354.         ^       = 0
  355.     é     
  356.  
  357. :PLAYER_SUPER_RECOILED
  358.     A  OFF
  359.     M      C_TAUNT2 CONTINUE
  360.     ^ïÜ            = @Ç║       `äû              "The alien lets forth~a bone-chilling wail."
  361.     ^ïÖ            = @Çÿ            ( `äû              )
  362.  
  363.     @Ç¥   PAUSE_FOR_SUBTITLE
  364.     A  ON
  365.     é     
  366.  
  367. :KILLED_PLAYER
  368.     I ( ^îï           = $Ç╗    ) THEN
  369.         é     
  370.  
  371.     A  OFF
  372.     ┴            
  373.     M      ATK_STAND CONTINUE
  374.     W    1 SECONDS
  375.  
  376.     //@@@
  377.     M      TAUNT3 CONTINUE
  378.                 @Ç║       `äù                "The sound of the alien's victory~cry is the last sound you ever hear."
  379.     â      
  380.     è          OFF
  381.     M      STAND CONTINUE
  382.     é     
  383. }
  384.  
  385. { LASER_HIT_DROGG1
  386.     @Çå   ( `Çí         )
  387.     ú             ( BOOM, PING, CURITEM )
  388.     ^îì             ++
  389.     // SHOW SOME DAME HERE
  390.     I ( ^îì                 = ^îæ            ) THEN
  391.         D      IMPACT 250
  392.     A  OFF
  393.     M      RECOIL
  394.     A  ON
  395. }
  396.  
  397.  
  398. { DROGG1_DEATH
  399.  
  400.     Q       "&&& ERROR: Drogg1 should not die! &&&"
  401. }
  402.  
  403. { DROGG1_RUNFORIT
  404.  
  405.     I ( ^îÉ              = $Ç╝   ) THEN
  406.         é     
  407.  
  408.     I  @Ç¢              ( DROGG1 ) = $Ç╗    THEN
  409.         é     
  410.  
  411.     ^îÉ              = $Ç╝  
  412.     A  OFF
  413.     ║            ON
  414.     G  DCENTER  25 RUN
  415. //      GO POSRBOT  25 RUN
  416.     G  DPRUN    25 RUN
  417.     ║            OFF
  418.     A  ON
  419.  
  420.     @Çì      THREE_BILLY_GOAT_GRUFF
  421. }
  422.  
  423. { THREE_BILLY_GOAT_GRUFF
  424.  
  425.     £    FRCTBUT GRADUAL
  426.  
  427.     :LOOP
  428.  
  429.     â      
  430.  
  431.     I ( ^ï╝        = 10) THEN
  432.         é     
  433.  
  434.     I ( ^ï╝        < 6) THEN
  435.         é     
  436.  
  437.     I ( ^ï╝        = 9) THEN
  438.         {
  439.         @Ç¥   BRDG_BUT_USE
  440.         M      STAND CONTINUE
  441.         //@@@
  442.                     @Ç║       `äù                "The sound of the alien's victory~cry is the last sound you ever hear."
  443.         W    10 SECONDS
  444.         }
  445.     E    J    #Ç¢ 
  446. }
  447.  
  448. { LFT_LEV_USE
  449.  
  450.   I  ^ଠ    = 1 THEN
  451.     é     
  452.  
  453.   I  ^îÆ            = $Ç╝   THEN
  454.     é     
  455.  
  456.   // THE DROGG GETS SNEAKY
  457.   I  ^འ    = 1 THEN
  458.     @Çì      DROGG1_RUNFORIT
  459.  
  460.   ^îÆ            = $Ç╝  
  461.   ^îô            = 0
  462.  
  463.   £    FLFTLVR GRADUAL
  464.  
  465.   ^         = @Çì      PULLLEFTLEVER
  466.  
  467. }
  468.  
  469. [ PULLLEFTLEVER
  470.  
  471.     00:00   A  OFF
  472.             M      REACTOR_PULL 140 CONTINUE SNAP_TO
  473.     00:25   ^îô            = @Çè               (^ü╢       ,1,2,12,10)
  474.     01:00   @Çå   (`üç         )
  475.     03:25   ^ଠ    = 1
  476.             A  ON
  477.             ^îÆ            = $Ç╗   
  478.     04:15   @Çå   (`à┤         )
  479.         //@@@TRANSLATE
  480.     05:10   @Ç║      (`âæ                     "Power conductor disengaged.")
  481.     05:15   @Çå   (`âæ                     100)
  482. ]
  483.  
  484. { RGT_LEV_USE
  485.  
  486.   I  ^འ    = 1 THEN
  487.     é     
  488.  
  489.   I  ^îÆ            = $Ç╝   THEN
  490.     é     
  491.  
  492.   // THE DROGG GETS SNEAKY
  493.   I  ^ଠ    = 1 THEN
  494.     @Çì      DROGG1_RUNFORIT
  495.  
  496.   ^îÆ            = $Ç╝  
  497.   ^îô            = 0
  498.  
  499.   £    FRGTLVR GRADUAL
  500.  
  501.   ^         = @Çì      PULLRIGHTLEVER
  502.  
  503. }
  504.  
  505. [ PULLRIGHTLEVER
  506.  
  507.     00:00   A  OFF
  508.             M      REACTOR_PULL 140 CONTINUE SNAP_TO
  509.     00:25   ^îô            = @Çè               (^ü╡       ,1,2,12,10)
  510.     01:00   @Çå   (`üç         )
  511.     03:25   ^འ    = 1
  512.             A  ON
  513.             ^îÆ            = $Ç╗   
  514.     04:15   @Çå   (`à┤         )
  515.             //@@@TRANSLATE
  516.     05:10   @Ç║      (`âæ                     "Power conductor disengaged.")
  517.     05:15   @Çå   (`âæ                     100)
  518.  
  519.  
  520. ]
  521.  
  522.  
  523. { ABORTPULL
  524.  
  525.     @Ç¢              ( PLAYER )
  526.     I ( @Çí         (CURFIG "LFT_LEV") ) THEN
  527.         {
  528.         I ( ^ଠ    = 0 ) THEN
  529.             @Çì      ABORTLEFTLEVER
  530.         }
  531.     E   
  532.         {
  533.         I ( ^འ    = 0 ) THEN
  534.             @Çì      ABORTRIGHTLEVER
  535.         }
  536. }
  537.  
  538. { ABORTLEFTLEVER
  539.  
  540.     A  ON
  541.                ^        
  542.     I ( ^îô            ) THEN
  543.         {
  544.                    ^îô           
  545.         ^îô            = 0
  546.                     @Çè               (^ü╢       ,-1,^ü╢       ,1,5)
  547.         }
  548.     ^îÆ            = $Ç╗   
  549. }
  550.  
  551. { ABORTRIGHTLEVER
  552.  
  553.                ^        
  554.     I ( ^îô            ) THEN
  555.         {
  556.                    ^îô           
  557.         ^îô            = 0
  558.                     @Çè               (^ü╡       ,-1,^ü╡       ,1,5)
  559.         }
  560.     ^îÆ            = $Ç╗   
  561. }
  562.  
  563. //$ 26 - version number
  564.